home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / samples / olecon~1 / wizards / main.bas < prev    next >
Encoding:
BASIC Source File  |  1995-12-04  |  867 b   |  45 lines
  1. Attribute VB_Name = "MainModule"
  2. '=---------------------------------------------------------=
  3. ' we have to get the following information for each control
  4. '
  5. Global szControlName As String
  6. Global szFinalDir As String
  7. Global g_fLoser As Boolean
  8. Global g_fSatellite As Boolean
  9. Global g_szSubClassName As String
  10. Global szSourceDir As String
  11.  
  12. Global Const STAGE_WELCOME = 1
  13. Global Const STAGE_CONTROLNAME = 2
  14. Global Const STAGE_SUBCLASS = 3
  15. Global Const STAGE_CONTROLDIR = 4
  16. Global Const STAGE_FINISHING = 5
  17.  
  18. Global iStage As Integer
  19.  
  20.  
  21. Public Sub TerminateApplication()
  22.  
  23.     End
  24.     
  25. End Sub
  26.  
  27.  
  28.  
  29. Sub main()
  30.  
  31.     szSourceDir = "..\Inetempl"
  32.  
  33.     iStage = STAGE_WELCOME
  34.     
  35.     Load frmMainWizard
  36.     frmMainWizard.Show vbModal
  37.     Unload frmMainWizard
  38.     
  39.     frmTransform.Show
  40.     Unload frmTransform
  41.     
  42.     End
  43.     
  44. End Sub
  45.